Ty = Sequence(Segment[(0, t, -0.1), (0, t, 0.1)], t, 1, 6)
Tx = Sequence(Segment[(t, 0, -0.1), (t, 0, 0.1)], t, 1, 6)
Tz = Sequence(Segment[(0, -0.1, t), (0, 0.1, t)], t, 1, 6)
u = Vector((0, 0, 0), (7, 0, 0))
w = Vector((0, 0, 0), (0, 0, 7))
A = (0, 0, 0)
B = (3, 0, 0)
C = (3, 3, 0)
D = (0, 3, 0)
E_1 = (0, 0, 3)
poly1, a, b, c, d = Polygon(A, B, C, D)
e, F, G, H, faceABFE, faceBCGF, faceCDHG, faceADHE, faceEFGH, edgeAE, edgeBF, edgeCG, edgeDH, edgeEF, edgeFG, edgeGH, edgeEH = Prism(poly1, E_1)
Sx = 1.14 (slider from 0 to 3, step 0.01)
Sy = -2.04 (slider from -5 to 3, step 0.01)
Sz = 6.6 (slider from 3 to 15, step 0.01)
S: (Sx, Sy, Sz)
f = Line(S, F)
g = Line(S, G)
h = Line(S, H)
i = Line(S, E_1)
I = Intersect(E, f)
J = Intersect(E, g)
K = Intersect(E, h)
L = Intersect(E, i)
poly2, b_1, i_1, j, k, l, a_1 = Polygon(B, I, J, K, L, A)
v = Vector((0, 0, 0), (0, 10, 0))
m = Segment(S, I)
n = Segment(S, J)
p = Segment(S, K)
q = Segment(S, L)